home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / AMOS0697.lzh / AMOSLIST / text0063.txt < prev    next >
Encoding:
Text File  |  1997-07-03  |  1.3 KB  |  75 lines
  1. Greetings,
  2.  
  3. After passively reading about 500 mail messages this morning, I have decided to 
  4. contribute to the game.
  5.  
  6.  
  7.  
  8. LINES=17 : rem number of lines of text-1
  9. Dim TXT$(LINES)
  10. Screen Open 0,640,256,16,Hires : use any dimensions so long as they're the same
  11. Screen Open 1,640,256,16,Hires
  12. Screen Hide 1
  13. Screen To Front 0
  14. Screen 1
  15. Flash Off 
  16. Curs Off 
  17. Load Iff "pic.iff"
  18. Screen 0
  19. Flash Off 
  20. Curs Off 
  21. Get Palette 1
  22. Double Buffer 
  23. Autoback 0
  24.  
  25. 'read in the text
  26. For X=0 To LINES
  27. Read TXT$(X)
  28. Next 
  29.  
  30. 'set the top of the text 
  31. TT=280
  32. 'the main loop 
  33. Do 
  34. YC=TT
  35. Screen 0
  36. Screen Copy 1 To 0
  37. For X=0 To LINES
  38. If YC<=-30 Then Goto N : Rem sorry about the goto!!!  
  39. L$=TXT$(X)
  40. XC=(640-Len(L$)*8)/2
  41. Ink 0,3,3
  42. Gr Writing 0
  43. Text XC,YC,L$
  44. N:
  45. YC=YC+Text Base+2
  46. If YC=>280 Then Exit 
  47. Next 
  48. Screen Swap 
  49. Wait 1
  50. TT=TT-2
  51. Loop 
  52.  
  53.  
  54. 'data
  55. Data "CREDITS:"
  56. Data ""
  57. Data "Scrolling by Stuart Jones"
  58. Data "Age 14"
  59. Data "Hope this works on your machine"
  60. Data "Cos I it did on mine!"
  61. Data  ""
  62. Data "I think that we should do a super-style game"
  63. Data "(Like Transport Tycoon)"
  64. Data "Built for the now average amiga"
  65. Data "I.E. HDD + extra RAM"
  66. data ""
  67. data "I would be happy to do all the aesthetics for the game"
  68. data "title screen, intro, credits etc.. cos I'm no good with bobs and sprites!"
  69. data ""
  70. data "The truth is out there!"
  71. data ""
  72. data "Long live the Amiga!"
  73.  
  74.  
  75.